home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / grabtext.zip / TEXTSHOW.BAT < prev    next >
DOS Batch File  |  1990-08-26  |  2KB  |  88 lines

  1. @echo off
  2. GOTO START
  3.  
  4. By Bill Buckels 1990
  5.  
  6. PTX GRAPHICS
  7. with the exception of the sdn logon screen
  8.  
  9. this could be an outline for an Adventure Game Batch Interpreter
  10. the Batch Driver is called TEXTVU.EXE
  11.  
  12. TEXTVU waits for a key press and returns a DOS errorlevel which is
  13. used for the logical BRANCHING in the Batch file.
  14.  
  15. Remember that since the ascii code is returned
  16. The number 1 is read as 49 (its ascii value).
  17.  
  18. Anyhow, here goes.. Bunch of TEXT GRAPHICS
  19.  
  20.  
  21. :START
  22.        CLS
  23.        REM if its above numerical 3 then it goes for another pass
  24.        REM the eval is from large to small
  25.        TEXTVU DOOR.PTX
  26.        IF ERRORLEVEL 52 GOTO START
  27.        IF ERRORLEVEL 51 GOTO ENDER
  28.        IF ERRORLEVEL 50 GOTO SECOND
  29.        IF ERRORLEVEL 49 GOTO FIRST
  30. GOTO START
  31.  
  32. we are using textvu as a slideshow in this next group
  33.  
  34. :SECOND
  35.      CLS
  36.      TEXTVU KEYBORED.PTX
  37.      CLS
  38.      TEXTVU SPACEBAR.PTX
  39.      CLS
  40.      TEXTVU SOUP.PTX
  41. GOTO START
  42.  
  43. the next example uses a convoluted jump loop
  44. reminiscent of spaghetti
  45.  
  46. :FIRST
  47.      CLS
  48.      TEXTVU HAL.PTX
  49.   :TOP1
  50.      CLS
  51.      TEXTVU HAROLD.PTX
  52.   :NEXT1
  53.      CLS
  54.      TEXTVU DINER.PTX
  55.   :LAST1
  56.      CLS
  57.      TEXTVU TREK.PTX
  58.  
  59.   :RECURSION
  60.      CLS
  61.      TEXTVU DOORS1.PTX
  62.        IF ERRORLEVEL 54 GOTO RECURSION
  63.        IF ERRORLEVEL 53 GOTO START
  64.        IF ERRORLEVEL 52 GOTO LAST1
  65.        IF ERRORLEVEL 51 GOTO NEXT1
  66.        IF ERRORLEVEL 50 GOTO TOP1
  67.        IF ERRORLEVEL 49 GOTO FIRST
  68. GOTO RECURSION
  69.  
  70. GOTO START
  71.  
  72. textvu is once again used as a slideshow
  73.  
  74. :ENDER
  75.      CLS
  76.      TEXTVU GEORGE.PTX
  77.      CLS
  78.      TEXTVU MSW.PTX
  79.      CLS
  80.      TEXTVU SDNLOGON.BSV
  81.      CLS
  82.      TEXTVU FAREWELL.PTX
  83.      REM return control to the parent process
  84.      CLS
  85.  
  86.  
  87.  
  88.